To handle chinese characters in windows by R

Storing:
convert the character list in UTF8 and store


Read Back:
WordTable <- readLines(con <- file("EnglishWordsUTF8.TXT", encoding = "UTF-8"))


WriteLines:

To write text UTF8 encoding on Windows one has to use the useBytes=T options in functions like writeLines or readLines:

txt <- "在"
writeLines(txt, "test.txt", useBytes=T)

readLines("test.txt", encoding="UTF-8")
[1] "在"


sink("WordTable.txt")
writeLines(WordTable, useBytes=T)
sink()